**************************************************
* This program performs the empirical tests      *
* on the agency channel on inventor mobility     *
* reported in Table 9                            *
**************************************************

	clear all
	global path "C:\cow"
	global out "$path\out"
	use "$path\incentive_move.dta"
	set more off

	winsor2 chg2_ln_q pchg2_q chg2_q, replace cuts(1 99) 

	gen negchgq10=0 if !missing(pchg2_q)
	replace negchgq10=1 if pchg2_q<0.1

	estpost tabstat pchg2_q negchgq10, statistics (n mean p50) columns(statistics) 

	gen hiinc=0
	replace hiinc=1 if (ceoownership<ceoownership_p50 | pct_inddir<pct_inddir_p50)

	
	prtest negchgq10 if hitech==1 & hiinc==1, by(move)
	prtest negchgq10 if hitech==1 & hiinc==0, by(move)
	prtest negchgq10 if hitech==1 & move==1, by(hiinc)
	prtest negchgq10 if hitech==1 & move==0, by(hiinc)
	
	prtest negchgq10 if hitech==0 & hiinc==1, by(move)
	prtest negchgq10 if hitech==0 & hiinc==0, by(move)
	prtest negchgq10 if hitech==0 & move==1, by(hiinc)
	prtest negchgq10 if hitech==0 & move==0, by(hiinc)

